/************************************************************************
  Scheme interpreter
  
  Copyright (C) 2010 Marioly Garza 

  This program is free software: you can redistribute it and/or modify
  it under the terms of the GNU Lesser General Public License as
  published by the Free Software Foundation, either version 3 of the
  License, or (at your option) any later version.
  
  This program is distributed in the hope that it will be useful, but
  WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  Lesser General Public License for more details.
  
  You should have received a copy of the GNU Lesser General Public
  License along with this program. If not, see
  <http://www.gnu.org/licenses/>.

************************************************************************/

#ifndef _CLOSURE_H_
#define _CLOSURE_H_

#include "environment.h"
#include "object.h"
#include "procedure.h"
#include "pair.h"

class closure : public procedure
{
    public:
        closure(object* args, object* code, environment* env);

        object* invoke(std::list<object*> args, environment* env);

        std::string to_string()
        {
            return util::format("#<closure-procedure-#%d>", instances);
        }
    private:
        object* args;
        bool memoized;
        static int instances;
};

#endif
